home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fontsh13 / fs_edtxt.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-03-17  |  9.8 KB  |  321 lines
  1. VERSION 2.00
  2. Begin Form FS_EDTXT 
  3.    BackColor       =   &H00FFFF80&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Edit Sample Text"
  6.    ClientHeight    =   6210
  7.    ClientLeft      =   1695
  8.    ClientTop       =   825
  9.    ClientWidth     =   6855
  10.    Height          =   6615
  11.    KeyPreview      =   -1  'True
  12.    Left            =   1635
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   6210
  17.    ScaleWidth      =   6855
  18.    Top             =   480
  19.    Width           =   6975
  20.    Begin TextBox TxtTitle 
  21.       Height          =   360
  22.       Left            =   960
  23.       TabIndex        =   28
  24.       Top             =   4920
  25.       Width           =   5700
  26.    End
  27.    Begin SSCommand CmdCancel 
  28.       Caption         =   "&Cancel"
  29.       ForeColor       =   &H00000080&
  30.       Height          =   492
  31.       Left            =   3840
  32.       TabIndex        =   27
  33.       Top             =   5520
  34.       Width           =   1332
  35.    End
  36.    Begin SSCommand CmdOK 
  37.       Caption         =   "&OK"
  38.       ForeColor       =   &H00000080&
  39.       Height          =   492
  40.       Left            =   1800
  41.       TabIndex        =   26
  42.       Top             =   5520
  43.       Width           =   1332
  44.    End
  45.    Begin TextBox TxtSample 
  46.       Height          =   360
  47.       Left            =   960
  48.       TabIndex        =   25
  49.       Top             =   4560
  50.       Width           =   5700
  51.    End
  52.    Begin TextBox Txt60Pt 
  53.       Height          =   360
  54.       Left            =   960
  55.       MaxLength       =   18
  56.       TabIndex        =   23
  57.       Top             =   4200
  58.       Width           =   5700
  59.    End
  60.    Begin TextBox Txt48Pt 
  61.       Height          =   360
  62.       Left            =   960
  63.       MaxLength       =   24
  64.       TabIndex        =   21
  65.       Top             =   3840
  66.       Width           =   5700
  67.    End
  68.    Begin TextBox Txt36Pt 
  69.       Height          =   360
  70.       Left            =   960
  71.       MaxLength       =   35
  72.       TabIndex        =   19
  73.       Top             =   3480
  74.       Width           =   5700
  75.    End
  76.    Begin TextBox Txt24Pt 
  77.       Height          =   360
  78.       Left            =   960
  79.       MaxLength       =   45
  80.       TabIndex        =   17
  81.       Top             =   3120
  82.       Width           =   5700
  83.    End
  84.    Begin TextBox Txt18Pt 
  85.       Height          =   360
  86.       Left            =   960
  87.       MaxLength       =   62
  88.       TabIndex        =   15
  89.       Top             =   2760
  90.       Width           =   5700
  91.    End
  92.    Begin TextBox Txt16Pt 
  93.       Height          =   360
  94.       Left            =   960
  95.       TabIndex        =   13
  96.       Top             =   2400
  97.       Width           =   5700
  98.    End
  99.    Begin TextBox Txt14Pt 
  100.       Height          =   360
  101.       Left            =   960
  102.       TabIndex        =   11
  103.       Top             =   2040
  104.       Width           =   5700
  105.    End
  106.    Begin TextBox Txt12Pt 
  107.       Height          =   360
  108.       Left            =   960
  109.       TabIndex        =   9
  110.       Top             =   1680
  111.       Width           =   5700
  112.    End
  113.    Begin TextBox Txt11Pt 
  114.       Height          =   360
  115.       Left            =   960
  116.       TabIndex        =   7
  117.       Top             =   1320
  118.       Width           =   5700
  119.    End
  120.    Begin TextBox Txt10Pt 
  121.       Height          =   360
  122.       Left            =   960
  123.       TabIndex        =   5
  124.       Top             =   960
  125.       Width           =   5700
  126.    End
  127.    Begin TextBox Txt9Pt 
  128.       Height          =   360
  129.       Left            =   960
  130.       TabIndex        =   3
  131.       Top             =   600
  132.       Width           =   5700
  133.    End
  134.    Begin TextBox Txt8Pt 
  135.       Height          =   360
  136.       Left            =   960
  137.       TabIndex        =   2
  138.       Top             =   240
  139.       Width           =   5700
  140.    End
  141.    Begin Label Label14 
  142.       BackColor       =   &H00FFFF80&
  143.       Caption         =   "Title"
  144.       Height          =   252
  145.       Left            =   240
  146.       TabIndex        =   29
  147.       Top             =   5040
  148.       Width           =   5700
  149.    End
  150.    Begin Label Label13 
  151.       BackColor       =   &H00FFFF80&
  152.       Caption         =   "Sample"
  153.       Height          =   252
  154.       Left            =   240
  155.       TabIndex        =   24
  156.       Top             =   4680
  157.       Width           =   5700
  158.    End
  159.    Begin Label Label12 
  160.       BackColor       =   &H00FFFF80&
  161.       Caption         =   "60 point"
  162.       Height          =   252
  163.       Left            =   240
  164.       TabIndex        =   22
  165.       Top             =   4320
  166.       Width           =   5700
  167.    End
  168.    Begin Label Label11 
  169.       BackColor       =   &H00FFFF80&
  170.       Caption         =   "48 point"
  171.       Height          =   252
  172.       Left            =   240
  173.       TabIndex        =   20
  174.       Top             =   3960
  175.       Width           =   5700
  176.    End
  177.    Begin Label Label10 
  178.       BackColor       =   &H00FFFF80&
  179.       Caption         =   "36 point"
  180.       Height          =   252
  181.       Left            =   240
  182.       TabIndex        =   18
  183.       Top             =   3600
  184.       Width           =   5700
  185.    End
  186.    Begin Label Label9 
  187.       BackColor       =   &H00FFFF80&
  188.       Caption         =   "24 point"
  189.       Height          =   252
  190.       Left            =   240
  191.       TabIndex        =   16
  192.       Top             =   3240
  193.       Width           =   5700
  194.    End
  195.    Begin Label Label8 
  196.       BackColor       =   &H00FFFF80&
  197.       Caption         =   "18 point"
  198.       Height          =   252
  199.       Left            =   240
  200.       TabIndex        =   14
  201.       Top             =   2880
  202.       Width           =   5700
  203.    End
  204.    Begin Label Label7 
  205.       BackColor       =   &H00FFFF80&
  206.       Caption         =   "16 point"
  207.       Height          =   252
  208.       Left            =   240
  209.       TabIndex        =   12
  210.       Top             =   2520
  211.       Width           =   5700
  212.    End
  213.    Begin Label Label6 
  214.       BackColor       =   &H00FFFF80&
  215.       Caption         =   "14 point"
  216.       Height          =   252
  217.       Left            =   240
  218.       TabIndex        =   10
  219.       Top             =   2160
  220.       Width           =   5700
  221.    End
  222.    Begin Label Label5 
  223.       BackColor       =   &H00FFFF80&
  224.       Caption         =   "12 point"
  225.       Height          =   252
  226.       Left            =   240
  227.       TabIndex        =   8
  228.       Top             =   1800
  229.       Width           =   5700
  230.    End
  231.    Begin Label Label4 
  232.       BackColor       =   &H00FFFF80&
  233.       Caption         =   "11 point"
  234.       Height          =   252
  235.       Left            =   240
  236.       TabIndex        =   6
  237.       Top             =   1440
  238.       Width           =   5700
  239.    End
  240.    Begin Label Label3 
  241.       BackColor       =   &H00FFFF80&
  242.       Caption         =   "10 point"
  243.       Height          =   252
  244.       Left            =   240
  245.       TabIndex        =   4
  246.       Top             =   1080
  247.       Width           =   5700
  248.    End
  249.    Begin Label Label2 
  250.       BackColor       =   &H00FFFF80&
  251.       Caption         =   "9 point"
  252.       Height          =   252
  253.       Left            =   240
  254.       TabIndex        =   1
  255.       Top             =   720
  256.       Width           =   5700
  257.    End
  258.    Begin Label Label1 
  259.       BackColor       =   &H00FFFF80&
  260.       Caption         =   "8 point"
  261.       Height          =   252
  262.       Left            =   240
  263.       TabIndex        =   0
  264.       Top             =   360
  265.       Width           =   5700
  266.    End
  267. Sub CmdCancel_Click ()
  268. ' Undo all changes
  269.     FS_Edtxt.Txt8Pt.Text = Temp8$
  270.     FS_Edtxt.Txt9Pt.Text = Temp9$
  271.     FS_Edtxt.Txt10Pt.Text = Temp10$
  272.     FS_Edtxt.Txt11Pt.Text = Temp11$
  273.     FS_Edtxt.Txt12Pt.Text = Temp12$
  274.     FS_Edtxt.Txt14Pt.Text = Temp14$
  275.     FS_Edtxt.Txt16Pt.Text = Temp16$
  276.     FS_Edtxt.Txt18Pt.Text = Temp18$
  277.     FS_Edtxt.Txt24Pt.Text = Temp24$
  278.     FS_Edtxt.Txt36Pt.Text = Temp36$
  279.     FS_Edtxt.Txt48Pt.Text = Temp48$
  280.     FS_Edtxt.Txt60Pt.Text = Temp60$
  281.     FS_Edtxt.TxtSample.Text = TempSample$
  282.     FS_Edtxt.Hide
  283. End Sub
  284. Sub CmdOK_Click ()
  285. x% = WritePrivateProfileString("Fontshow", "Def8", FS_Edtxt.Txt8Pt.Text, IniFile)
  286. x% = WritePrivateProfileString("Fontshow", "Def9", FS_Edtxt.Txt9Pt.Text, IniFile)
  287. x% = WritePrivateProfileString("Fontshow", "Def10", FS_Edtxt.Txt10Pt.Text, IniFile)
  288. x% = WritePrivateProfileString("Fontshow", "Def11", FS_Edtxt.Txt11Pt.Text, IniFile)
  289. x% = WritePrivateProfileString("Fontshow", "Def12", FS_Edtxt.Txt12Pt.Text, IniFile)
  290. x% = WritePrivateProfileString("Fontshow", "Def14", FS_Edtxt.Txt14Pt.Text, IniFile)
  291. x% = WritePrivateProfileString("Fontshow", "Def16", FS_Edtxt.Txt16Pt.Text, IniFile)
  292. x% = WritePrivateProfileString("Fontshow", "Def18", FS_Edtxt.Txt18Pt.Text, IniFile)
  293. x% = WritePrivateProfileString("Fontshow", "Def24", FS_Edtxt.Txt24Pt.Text, IniFile)
  294. x% = WritePrivateProfileString("Fontshow", "Def36", FS_Edtxt.Txt36Pt.Text, IniFile)
  295. x% = WritePrivateProfileString("Fontshow", "Def48", FS_Edtxt.Txt48Pt.Text, IniFile)
  296. x% = WritePrivateProfileString("Fontshow", "Def60", FS_Edtxt.Txt60Pt.Text, IniFile)
  297. x% = WritePrivateProfileString("Fontshow", "DefSample", FS_Edtxt.TxtSample.Text, IniFile)
  298. FS_Edtxt.Hide
  299. End Sub
  300. Sub Form_Activate ()
  301. ' Save all text to temporary variables, so
  302. ' changes can be undone if user cancels.
  303.     Temp8$ = FS_Edtxt.Txt8Pt.Text
  304.     Temp9$ = FS_Edtxt.Txt9Pt.Text
  305.     Temp10$ = FS_Edtxt.Txt10Pt.Text
  306.     Temp11$ = FS_Edtxt.Txt11Pt.Text
  307.     Temp12$ = FS_Edtxt.Txt12Pt.Text
  308.     Temp14$ = FS_Edtxt.Txt14Pt.Text
  309.     Temp16$ = FS_Edtxt.Txt16Pt.Text
  310.     Temp18$ = FS_Edtxt.Txt18Pt.Text
  311.     Temp24$ = FS_Edtxt.Txt24Pt.Text
  312.     Temp36$ = FS_Edtxt.Txt36Pt.Text
  313.     Temp48$ = FS_Edtxt.Txt48Pt.Text
  314.     Temp60$ = FS_Edtxt.Txt60Pt.Text
  315.     TempSample$ = FS_Edtxt.TxtSample.Text
  316.     End Sub
  317. Sub Form_Load ()
  318.     Top = 650
  319.     Left = (Screen.Width - Width) / 2
  320. End Sub
  321.